function [nmodel,dat]=i_eke(dat,model)

% -----------------------------------------------------------
% -- Interpolating modelled fields on observation's position
% -- in the EKE case
% -----------------------------------------------------------
% G. Charria (11/2008)


% ---- Create the Structure ...
nmodel = struct('dummy',1);

% ---- Interpolation
% ---- I. Interpolation over the obs grid (lon,lat) ----
d1=griddata(model.lon,model.lat,model.data,dat.londata',dat.latdata)';


nmodel.lon=dat.londata;
nmodel.lat=dat.latdata;
nmodel.data=d1;

%end

% ---- Clean the Structure ...
nmodel=rmfield(nmodel,'dummy');    
